home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / amms / mbbatch / com / delete_node < prev    next >
Encoding:
Text File  |  1995-08-16  |  3.2 KB  |  186 lines
  1. ;
  2. ;    DELETE NODE
  3. ;
  4. ;    $VER: V1.02 / 16-08-95
  5. ;
  6. ;
  7. ;    Funktion: Scriptfile zum Loeschen einer direkt angeschlossenen Node.
  8. ;
  9. ;
  10. ;    Benoetigte AMMS-Befehle :
  11. ;    -------------------------
  12. ;    check file
  13. ;    check user
  14. ;    delete user
  15. ;    disk execute
  16. ;    echo
  17. ;    eod
  18. ;    extern
  19. ;    gosub
  20. ;    input
  21. ;    on break
  22. ;    on error
  23. ;    return
  24. ;    show nodes
  25. ;
  26. ;
  27. ;    Benoetigte Amiga-Dos-Befehle :
  28. ;    ------------------------------
  29. ;    delete
  30. ;
  31.  
  32. ;
  33. ;    Abbruch, Fehlerspruenge definieren
  34. ;
  35.  
  36. _on error END                ; Bei Fehler -> Ende
  37. _on break END                ; Bei Abbruch -> Ende
  38.  
  39. ;
  40. ;    Sprachspezifische Daten laden
  41. ;
  42.  
  43. _gosub LOADTEXT
  44.  
  45. ;
  46. ;    Nodename eingeben
  47. ;
  48.  
  49. _parse "DELETE NODE" P0 "N/'TEXT_GETNODE'" NODENAME
  50. _if NODENAME == "" then _goto END    ; Wenn Leereingabe -> Ende
  51.  
  52. ;
  53. ;    Pruefe, ob Netzuser existiert
  54. ;
  55.  
  56. AN=""                    ; Zusatzstring vor Name loeschen
  57. _check user "'NODENAME'" TESTNET    ; Wenn Fehler, verzw.
  58. _goto DELUSER
  59. TESTNET:
  60. AN="net@"                ; Zusatzstring vor Name setzen
  61. _check user "'AN''NODENAME'" NOUSER    ; Wenn Fehler, verzw.
  62.  
  63. ;
  64. ;    Netzuser loeschen
  65. ;
  66. DELUSER:
  67. _delete user "'AN''NODENAME'"        ; Loesche User
  68. _check user "'AN''NODENAME'" DELUSER_OK    ; Wenn User vorhanden, Ende
  69. _goto END
  70. DELUSER_OK:
  71.  
  72. ;
  73. ;    Node aus Nodeliste loeschen
  74. ;
  75.  
  76. _echo/nolf "'TEXT_DELNODE1''NODENAME''TEXT_DELNODE2'" ; Statustext ausgeben
  77. _change node/del "'NODENAME'"        ; Node aus Nodeliste loeschen
  78. _echo TEXT_OK                ; OK ausgeben
  79.  
  80. ;
  81. ;    File mbdat:net@<NODENAME>.pw loeschen
  82. ;
  83.  
  84. FILE="mbdat:'AN''NODENAME'.pw"        ; Filename erzeugen
  85. _gosub DELFILE                ; File loeschen
  86.  
  87. ;
  88. ;    File mbnet:nodes/<NODENAME> loeschen
  89. ;
  90.  
  91. FILE="mbnet:nodes/'NODENAME'"        ; Filename erzeugen
  92. _gosub DELFILE                ; File loeschen
  93.  
  94. ;
  95. ;    File mbnet:localnodes/<NODENAME> loeschen
  96. ;
  97.  
  98. FILE="mbnet:localnodes/'NODENAME'"    ; Filename erzeugen
  99. _gosub DELFILE                ; File loeschen
  100.  
  101. ;
  102. ;    File mbnet:<NODENAME>1 loeschen
  103. ;
  104.  
  105. FILE="mbnet:'NODENAME'1"        ; Filename erzeugen
  106. _gosub DELFILE                ; File loeschen
  107.  
  108. ;
  109. ;    File mbnet:<NODENAME>2 loeschen
  110. ;
  111.  
  112. FILE="mbnet:'NODENAME'2"        ; Filename erzeugen
  113. _gosub DELFILE                ; File loeschen
  114.  
  115. ;
  116. ;    Files mbnet:Export/<NODENAME>@??.#? loeschen
  117. ;
  118.  
  119. FILE="mbnet:Export/'NODENAME'@??.#?"    ; Filename erzeugen
  120. _gosub DELFILE                ; Files loeschen
  121.  
  122. ;
  123. ;    Files mbnet:Import/<NODENAME>@#? loeschen
  124. ;
  125.  
  126. FILE="mbnet:Import/'NODENAME'@??.#?"    ; Filename erzeugen
  127. _gosub DELFILE                ; Files loeschen
  128.  
  129. ;
  130. ;    File mbnet:ExportFTab/<NODENAME> loeschen
  131. ;
  132.  
  133. FILE="mbnet:ExportFTab/'NODENAME'"    ; Filename erzeugen
  134. _gosub DELFILE                ; File loeschen
  135.  
  136. ;
  137. ;    File mbnet:ImportFTab/<NODENAME> loeschen
  138. ;
  139.  
  140. FILE="mbnet:ImportFTab/'NODENAME'"    ; Filename erzeugen
  141. _gosub DELFILE                ; File loeschen
  142.  
  143. ;
  144. ;    Sprung zum Ende
  145. ;
  146.  
  147. _goto END                ; -> Ende
  148.  
  149. ;
  150. ;    File loeschen
  151. ;    Var: FILE = Filename
  152. ;
  153. DELFILE:
  154. _echo/nolf "'TEXT_DEL1''FILE''TEXT_DEL2'" ; Statustext ausgeben
  155. _extern delete >nil: "'FILE'"        ; File loeschen
  156. _check file "'FILE'" DELFILE_OK        ; Wenn File geloescht, verzw.
  157. _echo TEXT_ERROR            ; Fehler, weil File vorhanden
  158. _return                    ; Ende
  159.  
  160. DELFILE_OK:
  161. _echo TEXT_OK                ; OK, wenn Filke geloeschtg
  162. _return                    ; Ende
  163.  
  164. ;
  165. ;    Fehlermeldung: User nicht vorhanden
  166. ;
  167. NOUSER:
  168. _echo "'TEXT_NOUSER1'""'NODENAME'""'TEXT_NOUSER2'"
  169.  
  170. ;
  171. ;    Ende
  172. ;
  173. END:
  174. _eod
  175.  
  176. ;
  177. ; Unterroutine: Lade sprachspezifische Texte
  178. ;
  179. LOADTEXT:
  180. LANG={DEFLANGUAGE}
  181. _check file "mbbatch:com/'{ALANGUAGE}'/delete_node.bat" GETTEXT
  182. LANG={ALANGUAGE}
  183. GETTEXT:
  184. _disk execute/keep "mbbatch:com/'LANG'/delete_node.bat"
  185. _return
  186.